home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 021-030 / amok25 / timersupport / timertest.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  62 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    TimerTest.def
  4.     :Contents.   test module for TimerSupport V2.0
  5.     :Author.     Nicolas Benezan [bne]
  6.     :Address.    Postwiesenstr. 2, D7000 Stuttgart 60
  7.     :Phone.      711/333679
  8.     :Copyright.  Public Domain
  9.     :Language.   Modula-2
  10.     :Imports.    TimerSupport2.0
  11.     :Translator. M2Amiga A+L V3.2d
  12.     :History.    V1.0 [bne] 03.Sep.1989
  13.  
  14. **********************************************************************)
  15.  
  16. MODULE TimerTest;
  17.  
  18. FROM InOut        IMPORT Write, WriteInt, WriteLn, WriteString;
  19. FROM Timer        IMPORT TimeVal;
  20. FROM TimerSupport IMPORT TimerMode, OpenTimer, CloseTimer, GetSysTime,
  21.                          SysToNormalTime, NormalToSysTime, SubTime,
  22.                          CmpTime;
  23. FROM SYSTEM       IMPORT ADR;
  24.  
  25. CONST
  26.   SekProTag=60*60*24;
  27.  
  28. VAR
  29.   Jetzt, Tag0, Noch: TimeVal;
  30.   Jahr, Monat, Tag, Stunde, Minute, Sekunde, Lage: LONGINT;
  31.  
  32. BEGIN
  33.   IF OpenTimer(vBlank) THEN
  34.     GetSysTime(Jetzt);
  35.     SysToNormalTime(Jetzt, Jahr, Monat, Tag, Stunde, Minute, Sekunde);
  36.     WriteString("Es ist jetzt der ");
  37.     WriteInt(Tag, 1);
  38.     Write(".");
  39.     WriteInt(Monat, 2);
  40.     Write(".");
  41.     WriteInt(Jahr, 4);
  42.     WriteLn;
  43.     NormalToSysTime(1990, 9, 1, 0, 0, 0, Tag0);
  44.     IF CmpTime(Tag0, Jetzt)<0 THEN
  45.       Noch:=Tag0;
  46.       SubTime(Noch, Jetzt);
  47.       Lage:=Noch.secs DIV SekProTag;
  48.       IF Lage=0 THEN
  49.         WriteString("Aaaauuuuschaaiiiiedäääär !!!");
  50.       ELSE
  51.         WriteString("Meine Lage: ");
  52.         WriteInt(Lage, 1);
  53.       END;
  54.     ELSE
  55.       WriteString("Aus is !");
  56.     END;
  57.     WriteLn;
  58.     CloseTimer;
  59.   END;
  60. END TimerTest.
  61.  
  62.